home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd1.bin / Software / Servis / X-setup / _SETUP.1 / XQ CoolSwitch Settings.xpl < prev    next >
Text File  |  1999-06-11  |  2KB  |  75 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 3.1"
  2. "TYPE"="2"
  3. "COUNT"="2"
  4. "UIPATH"="Appearance\General\Cool Switch"
  5. "NAME"="Settings"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Columns"
  8. "TEXT 2"="Rows"
  9. "DESCRIPTION 1"="If you press ALT+TAB, you perform a so called "Cool Switch"."
  10. "DESCRIPTION 2"="Normally, Windows displays seven columns and three rows in this dialog but you can change these values here."
  11. "DESCRIPTION 3"="To restore the original values, clear both fields."
  12. "DESCRIPTION 4"="Note: These settings have no effect when you are using Windows 95."
  13. "AUTHOR"="Xteq Systems"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@gmx.net."
  16. "COMMENT 2"="Version 1.31"
  17. "COMMENT 4"=" "
  18. "COMMENT 5"="Thanks to Andrew Roberts (alr@autoprt.co.uk) for the bug fix."
  19.  
  20.  
  21. 'Declaration of some constants
  22. sP="HKCU\Control Panel\Desktop\"
  23. sV1="CoolSwitchColumns"
  24. sv2="CoolSwitchRows"
  25.  
  26. 'Called when the Plugin is started
  27. Sub Plugin_Initialize
  28.  i=RegReadValue(sp & sv1)
  29.  SetUIElement 1,i
  30.  
  31.  i=RegReadValue(sp & sv2)
  32.  SetUIElement 2,i
  33. End Sub
  34.  
  35. 'Called when the Plugin should validate the Data the user has entered
  36. Sub Plugin_CheckData(ElementIndex)
  37. End Sub
  38.  
  39. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  40.  '//Always activate CoolSwitch
  41.  Call RegWriteValue(sp & "CoolSwitch","1",1)
  42.  
  43.  i=GetUIElement(1)
  44.  Call WriteStuff(sp & sv1,i)
  45.  
  46.  i=GetUIElement(2)
  47.  Call WriteStuff(sp & sv2,i)
  48.  
  49.  Call Restart
  50. End Sub
  51.  
  52. Sub WriteStuff(Path,Value)
  53.  if len(value)>0 then
  54.     'Activate it (note: changed from DWORD to STRING - work for NT machines)
  55.     Call RegWriteValue(Path,Value,1)
  56.  else
  57.     'Deactivate it!
  58.  
  59.     s=RegReadValue(Path)
  60.     if IsEmpty(s)=false then
  61.        'Value exists
  62.        Call RegDeleteValue(Path)
  63.     end if
  64.  
  65.  end if
  66. End Sub
  67.  
  68.  
  69.  
  70. 'Called when the Plugin is about to be removed from memory
  71. Sub Plugin_Terminate
  72. End Sub
  73.  
  74.  
  75.